home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / editor / frexxed / fpl / appquery.fpl next >
Text File  |  1996-08-22  |  862b  |  28 lines
  1. export int Dropped(string file, int id)
  2. {
  3.   string query = sprintf("Open %s\ninto a new buffer or\ninsert it at current position?", file);
  4.   int ret;
  5.   if(ret = ReadInfo("AppQuery"))
  6.     ;
  7.   else
  8.     ret = Request(query, "AppQuery", "New|Insert|New Always|Cancel");
  9.   if (ret==1 || ret==3) {
  10.     int id = New();
  11.     int before = GetBufferID();
  12.     CurrentBuffer(id);    /* make it the current */
  13.     if(0>Load(file)) {
  14.       Kill(id);           /* failed loading */
  15.     } else {
  16.       CurrentBuffer(id);    /* make it the current */
  17.       Activate(id);       /* popup a view */
  18.     }
  19.     if(3==ret) {
  20.       SetInfo(-1, "AppQuery", 1);
  21.     }
  22.   }
  23.   WindowToFront();
  24.   return (ret!=2) ; /* stop the insert operation if "New" or "Cancel" was selected! */
  25. }
  26. ConstructInfo("AppQuery", "", "", "GCW", "Ask|New Always|Insert Always", 0, 0);
  27. Hook("IconDrop", "Dropped");
  28.